﻿Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports BusinessEntity
Public Class UsuarioDA
    Dim con As New Conexion

    Public Function Login(ByVal Usuario As UsuarioBE) As DataSet
        Dim conexion As SqlConnection
        conexion = con.conectar
        Dim daUsuario As New SqlDataAdapter("usp_Login", conexion)
        daUsuario.SelectCommand.CommandType = CommandType.StoredProcedure

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@usuario", SqlDbType.VarChar, 20))
        daUsuario.SelectCommand.Parameters("@usuario").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@usuario").Value = Usuario.Usuario

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@clave", SqlDbType.VarChar, 20))
        daUsuario.SelectCommand.Parameters("@clave").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@clave").Value = Usuario.Clave

        Dim dsUsuario As New DataSet
        daUsuario.Fill(dsUsuario, "LoginUsuario")
        Return dsUsuario

        'LIBERA RECURSOS
        daUsuario.Dispose()
        dsUsuario.Dispose()
        conexion.Dispose()

    End Function

    Public Function InsertarUsuario(ByVal Usuario As UsuarioBE) As DataSet
        Dim conexion As SqlConnection
        conexion = con.conectar
        Dim daUsuario As New SqlDataAdapter("usp_InsertarUsuario", conexion)
        daUsuario.SelectCommand.CommandType = CommandType.StoredProcedure

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@Nombres", SqlDbType.VarChar, 50))
        daUsuario.SelectCommand.Parameters("@Nombres").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@Nombres").Value = Usuario.Nombres

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@Apellidos", SqlDbType.VarChar, 50))
        daUsuario.SelectCommand.Parameters("@Apellidos").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@Apellidos").Value = Usuario.Apellidos

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@DNI", SqlDbType.VarChar, 8))
        daUsuario.SelectCommand.Parameters("@DNI").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@DNI").Value = Usuario.DNI

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@Usuario", SqlDbType.VarChar, 20))
        daUsuario.SelectCommand.Parameters("@Usuario").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@Usuario").Value = Usuario.Usuario

        daUsuario.SelectCommand.Parameters.Add(New SqlParameter("@Clave", SqlDbType.VarChar, 20))
        daUsuario.SelectCommand.Parameters("@Clave").Direction = ParameterDirection.Input
        daUsuario.SelectCommand.Parameters("@Clave").Value = Usuario.Clave

        Dim dsUsuario As New DataSet
        daUsuario.Fill(dsUsuario, "RegistroUsuario")
        Return dsUsuario

        'LIBERA RECURSOS
        daUsuario.Dispose()
        dsUsuario.Dispose()
        conexion.Dispose()

    End Function

End Class
